home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Mega Archive 2
/
Atari Mega Archive CD - Volume 2.iso
/
8bit
/
cislib_a
/
frac.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-04-22
|
165b
|
9 lines
FUNCTION Frac(Num : Real) : Real;
(*
by Erik C. Warren, 13 January, 1986
for UPDATE...KYAN's Jan./Feb. issue
*)
BEGIN
Frac := Num - Trunc(Num)
END; (* Frac *)